home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
TBTN20.ZIP
/
FORM1.FRM
< prev
next >
Wrap
Text File
|
1994-02-05
|
2KB
|
71 lines
VERSION 2.00
Begin Form Form1
Caption = "Toolbar Button Demo"
ClientHeight = 1884
ClientLeft = 1704
ClientTop = 1992
ClientWidth = 4140
Height = 2304
Left = 1656
LinkTopic = "Form1"
ScaleHeight = 1884
ScaleWidth = 4140
Top = 1620
Width = 4236
Begin ToolBarButton TBtn1
Enabled = -1 'True
Height = 1452
Left = 192
Picture = FORM1.FRX:0000
Top = 192
Width = 1740
End
Begin CommandButton Command2
Caption = "Hide"
Height = 396
Left = 2400
TabIndex = 1
Top = 1056
Width = 1260
End
Begin CommandButton Command1
Caption = "Disable"
Height = 396
Left = 2400
TabIndex = 0
Top = 480
Width = 1260
End
End
Sub Command1_Click ()
If TBtn1.Enabled Then
TBtn1.Enabled = False
Command1.Caption = "Enable"
Else
TBtn1.Enabled = True
Command1.Caption = "Disable"
End If
End Sub
Sub Command2_Click ()
If TBtn1.Visible Then
TBtn1.Visible = False
Command2.Caption = "Unhide"
Else
TBtn1.Visible = True
Command2.Caption = "Hide"
End If
End Sub
Sub TBtn1_Click ()
MsgBox "TBtn1_Click", 0, "Click"
End Sub